home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / lang / SmallEiffel.lha / SmallEiffel / bin_c / short3.c < prev    next >
C/C++ Source or Header  |  1998-12-22  |  4KB  |  339 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.79)      --
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                 http://www.loria.fr/SmallEiffel              --
  7. */
  8. #include "short.h"
  9.  
  10.  
  11. T250 r250realloc(T250 C,T2 a1,T2 a2){
  12. T250 R=NULL;
  13. R=calloc(a2,sizeof(T0*));
  14. r250copy_from(R,C,(a1)-(1));
  15. return R;
  16. }
  17.  
  18.  
  19. void r250set_all_with(T250 C,T0* a1,T2 a2){
  20. T2 _i=0;
  21. _i=a2;
  22. while (!((_i)<(0))) {
  23. (C)[_i]=(a1);
  24. _i=(_i)-(1);
  25. }
  26. }
  27.  
  28.  
  29. void r250copy_from(T250 C,T250 a1,T2 a2){
  30. T2 _i=0;
  31. _i=a2;
  32. while (!((_i)<(0))) {
  33. (C)[_i]=((a1)[_i]);
  34. _i=(_i)-(1);
  35. }
  36. }
  37.  
  38.  
  39. T191 r191realloc(T191 C,T2 a1,T2 a2){
  40. T191 R=NULL;
  41. R=calloc(a2,sizeof(T0*));
  42. r191copy_from(R,C,(a1)-(1));
  43. return R;
  44. }
  45.  
  46.  
  47. void r191clear_all(T191 C,T2 a1){
  48. T2 _i=0;
  49. T0* _v=NULL;
  50. _i=a1;
  51. while (!((_i)<(0))) {
  52. (C)[_i]=(_v);
  53. _i=(_i)-(1);
  54. }
  55. }
  56.  
  57.  
  58. void r191set_all_with(T191 C,T0* a1,T2 a2){
  59. T2 _i=0;
  60. _i=a2;
  61. while (!((_i)<(0))) {
  62. (C)[_i]=(a1);
  63. _i=(_i)-(1);
  64. }
  65. }
  66.  
  67.  
  68. void r191copy_from(T191 C,T191 a1,T2 a2){
  69. T2 _i=0;
  70. _i=a2;
  71. while (!((_i)<(0))) {
  72. (C)[_i]=((a1)[_i]);
  73. _i=(_i)-(1);
  74. }
  75. }
  76.  
  77.  
  78. T45 r45realloc(T45 C,T2 a1,T2 a2){
  79. T45 R=NULL;
  80. R=calloc(a2,sizeof(T0*));
  81. r45copy_from(R,C,(a1)-(1));
  82. return R;
  83. }
  84.  
  85.  
  86. void r45copy_from(T45 C,T45 a1,T2 a2){
  87. T2 _i=0;
  88. _i=a2;
  89. while (!((_i)<(0))) {
  90. (C)[_i]=((a1)[_i]);
  91. _i=(_i)-(1);
  92. }
  93. }
  94.  
  95.  
  96. T84 r84realloc(T84 C,T2 a1,T2 a2){
  97. T84 R=NULL;
  98. R=calloc(a2,sizeof(T0*));
  99. r84copy_from(R,C,(a1)-(1));
  100. return R;
  101. }
  102.  
  103.  
  104. void r84copy_from(T84 C,T84 a1,T2 a2){
  105. T2 _i=0;
  106. _i=a2;
  107. while (!((_i)<(0))) {
  108. (C)[_i]=((a1)[_i]);
  109. _i=(_i)-(1);
  110. }
  111. }
  112.  
  113.  
  114. T174 r174realloc(T174 C,T2 a1,T2 a2){
  115. T174 R=NULL;
  116. R=calloc(a2,sizeof(T0*));
  117. r174copy_from(R,C,(a1)-(1));
  118. return R;
  119. }
  120.  
  121.  
  122. void r174set_all_with(T174 C,T0* a1,T2 a2){
  123. T2 _i=0;
  124. _i=a2;
  125. while (!((_i)<(0))) {
  126. (C)[_i]=(a1);
  127. _i=(_i)-(1);
  128. }
  129. }
  130.  
  131.  
  132. void r174copy_from(T174 C,T174 a1,T2 a2){
  133. T2 _i=0;
  134. _i=a2;
  135. while (!((_i)<(0))) {
  136. (C)[_i]=((a1)[_i]);
  137. _i=(_i)-(1);
  138. }
  139. }
  140.  
  141.  
  142. T313 r313realloc(T313 C,T2 a1,T2 a2){
  143. T313 R=NULL;
  144. R=calloc(a2,sizeof(T0*));
  145. r313copy_from(R,C,(a1)-(1));
  146. return R;
  147. }
  148.  
  149.  
  150. void r313set_all_with(T313 C,T0* a1,T2 a2){
  151. T2 _i=0;
  152. _i=a2;
  153. while (!((_i)<(0))) {
  154. (C)[_i]=(a1);
  155. _i=(_i)-(1);
  156. }
  157. }
  158.  
  159.  
  160. T2 r313fast_index_of(T313 C,T0* a1,T2 a2){
  161. T2 R=0;
  162. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  163. R=(R)+(1);
  164. }
  165. return R;
  166. }
  167.  
  168.  
  169. void r313move(T313 C,T2 a1,T2 a2,T2 a3){
  170. T2 _i=0;
  171. /*[IF*/
  172. if((a3)==(0)){
  173. }
  174.  else if((a3)<(0)){
  175. _i=a1;
  176. while (!((_i)>(a2))) {
  177. (C)[(_i)+(a3)]=((C)[_i]);
  178. _i=(_i)+(1);
  179. }
  180. }
  181. else{
  182. _i=a2;
  183. while (!((_i)<(a1))) {
  184. (C)[(_i)+(a3)]=((C)[_i]);
  185. _i=(_i)-(1);
  186. }
  187. }
  188. /*FI]*/
  189. }
  190.  
  191.  
  192. void r313clear(T313 C,T2 a1,T2 a2){
  193. T2 _i=0;
  194. T0* _v=NULL;
  195. _i=a1;
  196. while (!((_i)>(a2))) {
  197. (C)[_i]=(_v);
  198. _i=(_i)+(1);
  199. }
  200. }
  201.  
  202.  
  203. void r313copy_from(T313 C,T313 a1,T2 a2){
  204. T2 _i=0;
  205. _i=a2;
  206. while (!((_i)<(0))) {
  207. (C)[_i]=((a1)[_i]);
  208. _i=(_i)-(1);
  209. }
  210. }
  211.  
  212.  
  213. T305 r305realloc(T305 C,T2 a1,T2 a2){
  214. T305 R=NULL;
  215. R=calloc(a2,sizeof(T0*));
  216. r305copy_from(R,C,(a1)-(1));
  217. return R;
  218. }
  219.  
  220.  
  221. void r305copy_from(T305 C,T305 a1,T2 a2){
  222. T2 _i=0;
  223. _i=a2;
  224. while (!((_i)<(0))) {
  225. (C)[_i]=((a1)[_i]);
  226. _i=(_i)-(1);
  227. }
  228. }
  229.  
  230.  
  231. T295 r295realloc(T295 C,T2 a1,T2 a2){
  232. T295 R=NULL;
  233. R=calloc(a2,sizeof(T0*));
  234. r295copy_from(R,C,(a1)-(1));
  235. return R;
  236. }
  237.  
  238.  
  239. void r295copy_from(T295 C,T295 a1,T2 a2){
  240. T2 _i=0;
  241. _i=a2;
  242. while (!((_i)<(0))) {
  243. (C)[_i]=((a1)[_i]);
  244. _i=(_i)-(1);
  245. }
  246. }
  247.  
  248.  
  249. T212 r212realloc(T212 C,T2 a1,T2 a2){
  250. T212 R=NULL;
  251. R=calloc(a2,sizeof(T0*));
  252. r212copy_from(R,C,(a1)-(1));
  253. return R;
  254. }
  255.  
  256.  
  257. void r212clear_all(T212 C,T2 a1){
  258. T2 _i=0;
  259. T0* _v=NULL;
  260. _i=a1;
  261. while (!((_i)<(0))) {
  262. (C)[_i]=(_v);
  263. _i=(_i)-(1);
  264. }
  265. }
  266.  
  267.  
  268. void r212copy_from(T212 C,T212 a1,T2 a2){
  269. T2 _i=0;
  270. _i=a2;
  271. while (!((_i)<(0))) {
  272. (C)[_i]=((a1)[_i]);
  273. _i=(_i)-(1);
  274. }
  275. }
  276.  
  277.  
  278. T27 r27realloc(T27 C,T2 a1,T2 a2){
  279. T27 R=NULL;
  280. R=calloc(a2,sizeof(T0*));
  281. r27copy_from(R,C,(a1)-(1));
  282. return R;
  283. }
  284.  
  285.  
  286. void r27set_all_with(T27 C,T0* a1,T2 a2){
  287. T2 _i=0;
  288. _i=a2;
  289. while (!((_i)<(0))) {
  290. (C)[_i]=(a1);
  291. _i=(_i)-(1);
  292. }
  293. }
  294.  
  295.  
  296. T6 r27equal_like(T0* a1,T0* a2){
  297. T6 R=0;
  298. /*[IF*/
  299. /*AF*//*AF*/if((a1)==((void*)(a2))){
  300. R=1;
  301. }
  302.  else if(((a1)==((void*)(NULL)))||((a2)==((void*)(NULL)))){
  303. }
  304. else{
  305. R=r7is_equal(((T7*)a1),a2);
  306. }
  307. /*FI]*/
  308. return R;
  309. }
  310.  
  311.  
  312. T2 r27fast_index_of(T27 C,T0* a1,T2 a2){
  313. T2 R=0;
  314. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  315. R=(R)+(1);
  316. }
  317. return R;
  318. }
  319.  
  320.  
  321. void r27copy_from(T27 C,T27 a1,T2 a2){
  322. T2 _i=0;
  323. _i=a2;
  324. while (!((_i)<(0))) {
  325. (C)[_i]=((a1)[_i]);
  326. _i=(_i)-(1);
  327. }
  328. }
  329.  
  330.  
  331. T2 r27index_of(T27 C,T0* a1,T2 a2){
  332. T2 R=0;
  333. while (!(((R)>(a2))||(r27equal_like(a1,(C)[R])))) {
  334. R=(R)+(1);
  335. }
  336. return R;
  337. }
  338.  
  339.